;; host/file.scm - (c) rohan drape, 2001-2005

;; Must provide 'file-exists?' and 'directory-exists?' predicates.

;; Must provide 'file-size' for byte size, operating on file name
;; string.

;; Must provide 'file-modification-time' to evaluate to the
;; modification time of the existing file or directory `name'.  The
;; value is an integer, older times are smaller integers.

(module 
 file mzscheme

(define (file-modification-time name)
  (file-or-directory-modify-seconds name))

;; Must provide 'directory-contents' to give a list of names of
;; entries at a directory.

(define (directory-contents dir)
  (map path->string (directory-list dir)))

(provide (all-defined)))
